Apple Reference & Presentation Library 1993 Spring/ARPL-Spring-93-Partner-Edition.iso/Applications/Word Processing/Aldus Personal Press 2.0/PPPouch/AutoCreate/Business ID/_Letter Personal/_Letter Personal

Text File | 1992-05-29 | 5.2 KB | 169 lines | [SGPA/SCPG]

on Build
set lockscreen to true
Set ShuffleTextObjects to false
put measurements into tempMeasurements
set measurements to points
newpublication pages 1 columns 0 PageWidth 612 PageHeight 792 pageorientation portrait topmargin 54 bottommargin 54 leftmargin 54 rightmargin 54
set gridsettings to 18,18
set displayguides to false
set displayinvisibles to false
set displaynotes to true
set facingpages to false
set displaycolorsepcutouts to false
set gridsnap to false
set lockguides to false
set magneticguides to false
set menuhelp to true
set printcoloroptions to false
set printcolornames to true
set printcutouts to true
set printregistrationmarks to false
set showgraphics to true
set showgrid to false
set shownoteheaderdate to true
set shownoteheadertext to true
set shownoteheadertime to true
set smartquotes to true
set dialogupdatedelay to normal
set drawingtoolpreference to toolSelected
set guidespreference to front
set numberformat to 0.######
set palettepreference to anywhere
set printmarksoptions to no
set printpageoptions to all
set printtypeoptions to publication
set view to actual
set itemdel to ","
set worddel to " "
set linedel to cr
set graphicresizepreferences to 300
set savepubreminder to 15
set spotcolor 1 to 0,0,0
set spotcolor 2 to 65535,65535,65535
set spotcolor 3 to 62167,2134,34028
set spotcolor 4 to 0,32768,4528
set spotcolor 5 to 577,43860,60159
set spotcolor 6 to 56683,2242,1698
set spotcolor 7 to 0,0,54272
set spotcolor 8 to 64512,62333,1327
set linepattern to 1
set fillpattern to 2
set color to 1
set framelinetype to 1
-- •object 1•
open story "Message"
draw rectangle from 90,206 to 522,702
close story
set name of last object to "Message"
set locked of last object to false
set linepattern of last object to 0
set croprectangle of last object to 0,0,432,510
-- •object 2•
draw Line from 69,54 to 69,169
set name of last object to "Object 2"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,115
-- •object 3•
draw Line from 53,68 to 197,68
set name of last object to "Object 3"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,144,0
-- •object 4•
draw Line from 83,54 to 83,83
set name of last object to "Object 4"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,29
-- •object 5•
draw Line from 83,83 to 55,83
set name of last object to "Object 5"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,28,0
-- •object 6•
draw Line from 52,68 to 52,54
set name of last object to "Object 6"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,14
-- •object 7•
draw Line from 52,53 to 69,53
set name of last object to "Object 7"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,17,0
-- •object 8•
draw Line from 528,737 to 398,737
set name of last object to "Object 8"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,130,0
-- •object 9•
draw Line from 414,723 to 556,723
set name of last object to "Object 9"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,142,0
-- •object 10•
draw Line from 542,737 to 542,622
set name of last object to "Object 10"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,115
-- •object 11•
draw Line from 557,607 to 557,707
set name of last object to "Object 11"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,100
-- •object 12•
draw Line from 528,708 to 557,708
set name of last object to "Object 12"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,29,0
-- •object 13•
draw Line from 528,708 to 528,737
set name of last object to "Object 13"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,29
-- •object 14•
draw Line from 543,737 to 557,737
set name of last object to "Object 14"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,14,0
-- •object 15•
draw Line from 557,723 to 557,737
set name of last object to "Object 15"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,14
-- •object 16•
open story "Address"
draw rectangle from 89,85 to 387,192
close story
set name of last object to "Address, Letterhead E"
set locked of last object to true
set fillpattern of last object to 2
set linepattern of last object to 0
PublicationSetup columns 1
set measurements to tempMeasurements
-- •object 17•
draw Line from 83,54 to 213,54
set name of last object to "Object 15"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,14
-- •object 18•
draw Line from 55,83 to 55,198
set name of last object to "Object 15"
set locked of last object to true
set fillpattern of last object to 2
set croprectangle of last object to 0,0,0,14
end Build

    Δ <
B
Ï